q()
cat("\014") # Limpa console R
rm(list = ls()) # Limpa área de trabalho
# Ctrl+shift+F10 - restart your R session
encoding <- "UTF8"
options(encoding = encoding)
options(tz = "America/Sao_Paulo")
#Rtools
# Instalação do pacote tabular
remove.packages("tabular")
setwd("Z:/CETIC.BR (repositório)/Base de conhecimento/DesenvolvimentoTabelas/tabular")
install.packages("tabular_0.0.1.8.tar.gz", repos = NULL, type = "source")
library(tabular)
# Diretório dos dicionários e tabelas
setwd(dirname(rstudioapi::getSourceEditorContext()$path))
# Lista todos os arquivos .csv
files <- list.files(pattern = 'csv')
files
# Seleciona cada um dos parâmetros a partir da palavra chave
indicadores <- files[grepl('indicadores', files)]
agrupamentos <- files[grepl('agrupamentos', files)]
perguntas <- files[grepl('perguntas', files)]
respostas <- files[grepl('respostas', files)]
dados <- files[grepl('dados', files)]
pesquisa <- strsplit(indicadores, "_dicionario")[[1]][1]
# Processamento Tabelas
TABELAS <- tabular::Rodar(arq_indicadores = indicadores,
arq_agrupamentos = agrupamentos,
arq_perguntas = perguntas,
arq_respostas = respostas,
dados = dados)
cat("\014") # Limpa console R
rm(list = ls()) # Limpa área de trabalho
# Ctrl+shift+F10 - restart your R session
encoding <- "UTF8"
options(encoding = encoding)
options(tz = "America/Sao_Paulo")
#Rtools
# Instalação do pacote tabular
remove.packages("tabular")
setwd("Z:/CETIC.BR (repositório)/Base de conhecimento/DesenvolvimentoTabelas/tabular")
install.packages("tabular_0.0.1.8.tar.gz", repos = NULL, type = "source")
library(tabular)
# Diretório dos dicionários e tabelas
setwd(dirname(rstudioapi::getSourceEditorContext()$path))
# Lista todos os arquivos .csv
files <- list.files(pattern = 'csv')
files
# Seleciona cada um dos parâmetros a partir da palavra chave
indicadores <- files[grepl('indicadores', files)]
agrupamentos <- files[grepl('agrupamentos', files)]
perguntas <- files[grepl('perguntas', files)]
respostas <- files[grepl('respostas', files)]
dados <- files[grepl('dados', files)]
pesquisa <- strsplit(indicadores, "_dicionario")[[1]][1]
# Processamento Tabelas
TABELAS <- tabular::Rodar(arq_indicadores = indicadores,
arq_agrupamentos = agrupamentos,
arq_perguntas = perguntas,
arq_respostas = respostas,
dados = dados)
# Exporta tabelas
TABELAS$prop <- tabular::ExportarTabela(TABELAS, type = "prop", idioma = "pt")
TABELAS$erro <- tabular::ExportarTabela(TABELAS, type = "erro", idioma = "pt")
TABELAS$total <- tabular::ExportarTabela(TABELAS, type = "total", idioma = "pt")
TABELAS$errototal <- tabular::ExportarTabela(TABELAS, type = "errototal", idioma = "pt")
# Salva tabelas no diretório
openxlsx::saveWorkbook(wb = TABELAS$prop,
file = paste0(pesquisa, "_tabela_proporcao_v1.0.xlsx"),
overwrite = TRUE)
openxlsx::saveWorkbook(wb = TABELAS$erro,
file = paste0(pesquisa, "_tabela_margem_de_erro_v1.0.xlsx"),
overwrite = TRUE)
openxlsx::saveWorkbook(wb = TABELAS$total,
file = paste0(pesquisa, "_tabela_total_v1.0.xlsx"),
overwrite = TRUE)
openxlsx::saveWorkbook(wb = TABELAS$errototal,
file = paste0(pesquisa, "_tabela_margem_de_erro_total_v1.0.xlsx"),
overwrite = TRUE)
# Verifica o scale utilizado
# Domicílios 2020: scale=0.00642244440548866
# Indivíduos 2020: scale=0.00686237914069572
# Ondas Painel: scale=0.00684006541327602
# Painel Onda 5: scale=0.00684008296372294
# Cultura 2022: scale =0.00545711704814438
# Saúde 2022 Gestores: scale =0.0079664308705664
# Saúde 2022 Médicos: scale =0.0100030602022529
# Saúde 2022 Enfermeiros: scale =0.00879658739063795
# Painel Onda 6: scale = 0.00562035721138633
TABELAS$design$scale
TABELAS$design$combined.weights
TABELAS$design$type
